home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: delta / whiteline CD Series - delta.iso / tex / style / misc / color.sty < prev    next >
Text File  |  1995-11-25  |  13KB  |  327 lines
  1. \def\fileversion{v1}
  2. \def\filedate{91/12/04}
  3. \immediate\write\sixt@@n{File: `color.sty' 
  4. \fileversion\space <\filedate> (SPQR, from LL)}
  5. % Sebastian Rahtz
  6. % 5 Granary Court
  7. % St Andrewgate
  8. % York Y01 2JR
  9. %
  10. %spqr@uk.ac.soton.ecs
  11. % what this really is!
  12. %----------------------------------------
  13. % COLOR.DOC, 21 March 1990
  14. % derived from 
  15. % PS-SLIDES DOCUMENT -- released  14 November 1989
  16. %    for SliTeX version 2.09
  17. % Copyright (C) 1988 by Leslie Lamport
  18. % \typeout{`color' -- released <21 Mar 90>}
  19.  
  20. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  21. %                         ABOUT THIS DOCUMENT STYLE                         %
  22. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  23. % This style puts \special commands in the .dvi file that, when printed     %
  24. % on the proper color printer, produces colored output.  It is currently    %
  25. % configured to work when the .dvi file is run through the dvips program,   %
  26. % or dvitops. See the case statement that follows.
  27. %
  28. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
  29.  
  30. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  31. %             DIFFERENCES BETWEEN color.sty AND ORDINARY SLiTeX             %
  32. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  33. %
  34. % * The \colors command is made a no-op. Colors that are not predefined
  35. %    must be defined with the \newpscolor command (see below).
  36. % 
  37. % * The \colorslides and \blackandwhite commands are the same, except that
  38. %   \colorslides prints only slides and overlays, not notes.
  39. % 
  40. % * The meaning of the \invisible declaration has been changed, as described
  41. %   below.  The old \visible command is the same as the new \white command.
  42. % 
  43. % * The default page style is `plain'.  (The alignment marks are no longer
  44. %   of any use.)
  45. %
  46. % * The positioning of the body of the slide and the slide number have
  47. %   been changed to accomodate the QMS printer's small effective page 
  48. %   size.
  49. %
  50. % Except for these differences, a SLiTeX input file prepared for the
  51. % ordinary `slides' style SHOULD work with the `ps-slides' style.  There
  52. % are probably some SLiTeX commands that will interact incorrectly with
  53. % color-changing commands.  These problems will be corrected when
  54. % reported.  The most likely bug is a color declaration `escaping from
  55. % its scope', having a more global effect than it should.  Such a problem
  56. % can be worked around by adding redundant color-changing commands.
  57.  
  58.  
  59. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  60. %                           THE \special COMMAND                            %
  61. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  62. %                                                                           %
  63. % \@drawcolor produces a \special command that sets the printer's color     %
  64. % to the RGB value indicated by the control sequences \@red, \@green,       %
  65. % and \@blue.  This command must be changed to customize the document       %
  66. % style to work under other systems
  67. %                                                                           %
  68.                                                                            %
  69. \@ifundefined{driver@setup}%
  70. {
  71. \typeout{WARNING *** driver setup codes are unknown in this setup ***}
  72. \typeout{*** No color changes ***}
  73. \def\@drawcolor{}
  74. }
  75. {
  76. \typeout{Driver type \the\driver@setup}
  77. % 0. dvi2lj: no rotation possible
  78. % 1. dvi2ps (Les Carr)
  79. % 2. dvitops (James Clark)
  80. % 3. dvips (Tom Rokicki)
  81. \ifcase\driver@setup
  82. % case 0  not available
  83. \typeout{WARNING *** A color mechanism is not defined for this setup ***}
  84. \def\@drawcolor{}
  85. \or % case 1
  86. \typeout{WARNING *** A color mechanism is not defined for this setup ***}
  87. \def\@drawcolor{}
  88. \or  % case 2 (dvitops, Adobe-encoded)
  89. \newcount\regionno
  90. \def\@drawcolor{%
  91. \special{dvitops: begin \the\regionno}%
  92. \special{dvitops: rgbcolor \the\regionno\space \@red\space \@green\space \@blue}%
  93. \global\advance\regionno by 1
  94. }
  95. \or % case 3 (dvips, Rokicki, virtual fonts)
  96. \def\@drawcolor{\special{ps: \@red\space \@green\space                        %
  97.                      \@blue\space setrgbcolor\space}}                       %
  98. \else                                                                       %
  99. \typeout{WARNING *** This driver setup is unknown - no color mechanism ***}
  100. \def\@drawcolor{}
  101. \fi
  102. }
  103. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  104. %                         NEW AND CHANGED COMMANDS                          %
  105. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  106. % 
  107. % \newpscolor{\PUCE}{RED}{GREEN}{BLUE} 
  108. % \renewpscolor{\PUCE}{RED}{GREEN}{BLUE} 
  109. %
  110. %       Define \PUCE to produce a new color with the indicated RGB values,
  111. %       where RED, GREEN, and BLUE are decimal numbers between 0 and 1
  112. %       (inclusive).  For example:
  113. %            Black         =  [RED: 0,  GREEN: 0,  BLUE: 0]
  114. %            White         =  [RED: 1,  GREEN: 1,  BLUE: 1]
  115. %            Red           =  [RED: 1,  GREEN: 0,  BLUE: 0]
  116. %            Light yellow  =  [RED: .5, GREEN: .5, BLUE: 0]
  117. %      For \newpscolor \PUCE must not already be defined; for
  118. %      \renewpscolor, it must already be defined (but not necessarily as a
  119. %      color).
  120. %
  121. %
  122. % The following colors are predefined:
  123. %
  124. %      \black, \red, \green, \blue, \yellow, \magenta, \cyan, \white
  125. %
  126. % For ordinary printers, which assume white paper, \white text is invisible.
  127. % Unlike in ordinary SLiTeX, color-changing commands can be used in
  128. % math mode.
  129. %
  130. %
  131. % \invisible 
  132. % \visible   
  133. %
  134. %      Ordinary declarations of visibility of the text.  Invisible text
  135. %      is not printed.  (TeX prints it in a font that whose letters are all
  136. %      print as spaces.)
  137. %      Visibility is independent of color, so you can have invisible red text,
  138. %      visible green text, and even visible white text.  (Visible white text
  139. %      can be seen only when printed by a weird printer that prints on
  140. %      nonwhite paper.)
  141. %
  142. % 
  143. % \norestore
  144. % \restore
  145. % 
  146. %      The \norestore declaration inhibits the proper scoping of color
  147. %      declarations, causing color declarations to act as if they were global.
  148. %      The \restore command causes the current and future colors to become the
  149. %      ones they would have been had there been no \norestore command.
  150. %      Both \norestore and \restore are global declarations.  Example:
  151. %      
  152. %        \black black {\green green 
  153. %                             \norestore {\red red} red
  154. %                             \restore 
  155. %                             green} 
  156. %               black
  157. %      
  158. %      The \norestore declaration is handy for color commands inside a tabbing
  159. %      or tabular environment.  However, there are some anomalies: 
  160. %      
  161. %       * A \restore command inside a tabbing environment may not work exactly
  162. %         as it should.  Try putting the command immediately after a \=, \\, or
  163. %         \>.  
  164. %      
  165. %       * An \fbox, \framebox, or \frame command may do weird things in the
  166. %         scope of a \norestore if there's a color declaration in its argument.
  167. %      
  168. %       * A \background  may behave strangely inside the scope of a \norestore.
  169. %
  170. %
  171. % \background{\yellow}{TEXT} 
  172. %      
  173. %      Typesets TEXT in an \mbox with a yellow box behind it.  The yellow box
  174. %      is the width of TEXT plus a border of width \bgborder around it.
  175. %
  176. %
  177. % \hollowbackground 
  178. % \filledbackground 
  179. %      
  180. %      A \hollowbackground declaration causes any \background command in its
  181. %      scope to produce an outline, much like \fbox, instead of a filled box.
  182. %      This is useful for checking the slides with Proof or on a
  183. %      black-and-white printer.  A \filledbackground declaration has the
  184. %      opposite effect.
  185. %
  186. %
  187. % \nogray 
  188. %      
  189. %      A declaration that makes every color other than \white be equivalent to
  190. %      \black, and issues a \hollowbackground declaration
  191. %
  192. % \norestore and \restore 
  193. %
  194. \def\norestore{\gdef\@aftergroup{}}
  195. \def\restore{\gdef\@aftergroup{\@drawcolor}\@drawcolor}
  196. %
  197. % \@setcolor{RED}{GREEN}{BLUE} sets the current RGB value within SLiTeX
  198. % and calls \@drawcolor to produce the PostScript commands to change
  199. % their values in the output.
  200. %
  201. \def\@setcolor#1#2#3{\edef\@red{#1}\edef\@green{#2}\edef\@blue{#3}\@drawcolor
  202.   \aftergroup\@aftergroup}
  203.  
  204. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  205. %
  206. % \newpscolor{\PUCE}{RED}{GREEN}{BLUE} :
  207. %    defines \PUCE to produce a new color with the indicated RGB values.
  208. %    \PUCE must not already be defined.
  209. % \renewpscolor{\PUCE}{RED}{GREEN}{BLUE} :
  210. %    same as \newpscolor but assumes \PUCE is already defined.
  211. %
  212. \def\newpscolor#1#2#3#4{\newcommand{#1}{\@setcolor{#2}{#3}{#4}}}
  213. \def\renewpscolor#1#2#3#4{\renewcommand{#1}{\@setcolor{#2}{#3}{#4}}}
  214.  
  215.  
  216. %% DEFINE SOME STANDARD COLORS
  217. \newpscolor{\black}{0}{0}{0}
  218. \newpscolor{\red}{1}{0}{0}
  219. \newpscolor{\yellow}{1}{1}{0}
  220. \newpscolor{\magenta}{1}{0}{1}
  221. \newpscolor{\green}{0}{1}{0}
  222. \newpscolor{\cyan}{0}{1}{1}
  223. \newpscolor{\blue}{0}{0}{1}
  224. \newpscolor{\white}{1}{1}{1}
  225.  
  226.  
  227.  
  228. % REDEFINE \colorslides SO IT PRODUCES ONLY SLIDES, NO NOTES,
  229. % AND WITHOUT ANY COLOR LAYER
  230.  
  231. \def\colorslides#1{\newpage\setcounter{page}{0}\@bwtrue\@visibletrue
  232. \if@onlyslidesw \xdef\@doslidelist{\@doglslidelist}%
  233. \@setlimits\@doslidelist\@doslidelow\@doslidehigh\fi
  234. \xdef\@doglnotelist{999998,999999,999999}%
  235. \xdef\@donotelist{\@doglnotelist}%
  236. \@setlimits\@donotelist\@donotelow\@donotehigh\@onlynoteswtrue
  237. \normalsize\setcounter{slide}{0}\setcounter{overlay}{0}%
  238. \setcounter{note}{0}\@makingslidestrue\input #1\@makingslidesfalse}
  239.  
  240. % REDEFINE \colors TO BE A NO-OP
  241. \def\colors#1{}
  242.  
  243. % Change to bowels of tabular environment needed to fix a bug that occurs
  244. % when a color command occurs in the last element.
  245. %
  246. \def\@tabclassz{\ifcase \@lastchclass \@acolampacol \or \@ampacol \or
  247.    \or \or \@addamp \or
  248.    \@acolampacol \or \@firstampfalse \@acol \fi
  249. \edef\@preamble{\@preamble
  250.   \ifcase \@chnum 
  251.      \hfil{\ignorespaces\@sharp\unskip}\hfil 
  252.      \or {\ignorespaces\@sharp\unskip}\hfil 
  253.      \or \hfil\hskip\z@ {\ignorespaces\@sharp\unskip}\fi}}
  254.  
  255.  
  256. % The following modify the tabbing environment to get the scope of the
  257. % color commands to be the same as for other declarations in a tabbing
  258. % environment.
  259. %
  260. \def\@startfield{\global\setbox\@curfield\hbox\bgroup\begingroup}
  261. \def\@stopfield{\endgroup\egroup}
  262. \def\@contfield{\global\setbox\@curfield\hbox\bgroup\begingroup
  263.    \unhbox\@curfield}
  264.  
  265. \def\visible{\@mmodetest\@visibletrue\@currsize\@currfont
  266.    \white\ignorespaces}
  267. \let\visible=\visible
  268. \let\endvisible=\relax
  269.  
  270. % The following modifies \fbox to make it work right with color commands.  
  271. % However, \fbox, \framebox, and \frame will do weird things
  272. % if \norestore is in effect.
  273. %
  274. \long\def\fbox#1{\leavevmode\setbox\@tempboxa\hbox{#1}\@tempdima\fboxrule
  275.     \advance\@tempdima \fboxsep \advance\@tempdima \dp\@tempboxa
  276.    \hbox{\lower \@tempdima\hbox
  277.   {\vbox{\if@visible \hrule \@height \else \vskip\fi\fboxrule 
  278.           \hbox{\if@visible\vrule \@width \else \hskip \fi\fboxrule 
  279.                  \hskip\fboxsep
  280.         \vbox{\vskip\fboxsep \box\@tempboxa\@aftergroup
  281.                     \vskip\fboxsep}\hskip 
  282.                    \fboxsep \if@visible\vrule \@width\else\hskip \fi\fboxrule}
  283.            \if@visible\hrule \@height \else \vskip \fi\fboxrule}}}}
  284.  
  285.  
  286. % The command \background{\yellow}{TEXT} typesets TEXT in an \mbox with a
  287. % yellow box behind it.  The yellow box is the width of TEXT plus a
  288. % border of width \bgborder around it.
  289. %
  290. % The declaration \hollowbackground causes any \background command in its
  291. % scope to produce an outline, much like \fbox, instead of a filled box.
  292. % The declaration \filledbackground has the opposite effect.
  293. %
  294. %
  295. \newsavebox{\@bgbox}
  296. \newlength{\bgborder}
  297. \bgborder=3pt\relax
  298. \newif\if@hollowbg \@hollowbgfalse
  299. \newcommand{\hollowbackground}{\@hollowbgtrue}
  300. \newcommand{\filledbackground}{\@hollowbgfalse}
  301. \newcommand{\background}[2]{\sbox{\@bgbox}{#2}%
  302. \@tempdima=\ht\@bgbox \advance\@tempdima \dp\@bgbox
  303.  \advance\@tempdima 2\bgborder
  304.  \@tempdimb=\wd\@bgbox \advance\@tempdimb2\bgborder
  305.  \makebox[0pt][l]{#1\raisebox{-\dp\@bgbox}
  306.  {\raisebox{-\bgborder}{\if@hollowbg
  307. \frame{\invisible\rule{\@tempdimb}{\@tempdima}}\else
  308.  \rule{\@tempdimb}{\@tempdima}\fi}}}%
  309. \hspace*{\bgborder}\box\@bgbox\@aftergroup{\hspace*{\bgborder}}}
  310.  
  311. % \nogray is a declaration that converts every color other than \white
  312. % to be equivalent to \black, and issues a \hollowbackground declaration
  313. %
  314. \let\@@setcolor=\@setcolor
  315. \def\nogray{\def\@setcolor##1##2##3{\@@setcolor{0}{0}{0}}
  316. \def\white{\@@setcolor{1}{1}{1}}\hollowbackground }
  317.  
  318. %% INITIALIZATION
  319. %
  320. \def\@red{0}
  321. \def\@green{0}
  322. \def\@blue{0}
  323. \gdef\@aftergroup{\@drawcolor}
  324. \@drawcolor
  325. %
  326. \endinput
  327.